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EDTSLDEFK = DEFINE KEY command 


; 1 4 ZTITLE “EDTSL pee K = DEFINE KEY command’ 

3 ¢ 0 § MODULE EDTSLDEFK ( ! DEFINE KEY Line-mode commana 
; ? its “DENT = *v04-000' ! File: LDEFK.BLI Edit: 
3 5 905 Ve BEGIN 

: ? id : nc hininsdieiandiaeinbenenaabinesdadabniinnnaaamebinensammnmaiemedsmnatibaenne 
3 ie * 
3 3 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
; WW 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
3 1 Bat, : - ALL RIGHTS RESERVED * 
; H t 
3 ig 8018 1 Ie mis SOF TWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
aa. 0014 1 !# Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ee 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AN THE * 
; 308 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ‘* 
Tae 0017 1 !* OT PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
F 18 dt ! is TRANSFERRED. * 
Py H e 
; 2 Bast 1 Ie phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
a 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $$ bo¢¢ 1 7 CORPORATION. * 
3 '* +2 
; @€ 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ae 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS Not’ SUPPLIED BY DIGITAL. * 
; 0026 1 !* ® 
oo! ar 0027 1 !* * 
3 4 oo : ; ‘eae inant tein a 
: 30 $080 1 

3 1 0031 1 !+4¢4 

3 2 tT) 1 ! FACILITY: EDT -=- The DEC Standard Editor 

a 0033 1! 

3 $e 0034 1 | ABSTRACT: 

3 5 ite 1 i 

; 38 aoe ! This module executes the Line mode DEFINE KEY command. 

: $3 sf ! ENVIRONMENT: Runs at any access mode - AST reentrant 

; 40 9040 1 AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 

; 42 0042 1;! MODIFIED BY: 

Ps 0043 1°! 

3; (46 044 1°! 1-001 - Original. DJS 30-JAN-81. This module was created by 

; 45 045 1 is gutrec ting the routine DEFINE _COM from the module EXEC.BLI. 

; 646 0046 1 !' 1-002 - Regularize headers. JBS 19-Mar-1981 

BOF 0047 1 : 1-005 = Change SY_EXIT to septs SYS wie . JBS 31-Mar-1981 

: 648 0048 1 ! 1-004 = Use new eeseoee codes. JBS 05-Aug-1981 

; #649 994 1 ! 1-005 = Remove INP_F]l JBS 16-Aug-1981 

: 4 Bao ! ; 1-006 - EDTSDEFK réturns a status. JBS 18-May-1982 

: 52 052 1 


1 she LDEFK.BLI;1 
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] 
: ¢ i ] HSBTTL Declarations’ | 
; 6 : | TABLE OF CONTENTS: 
; ee 
3 53 9 § 1 REQUIRE ‘EDTSRC: TRAROUNAM'; | 
> 61 498 1 FORWARD ROUTINE | 
3; 6 299 1 EDTSSDEFK_CMD : NOVALUE; ! Process the DEFINE KEY command 
| & 2) 
> 65 0306 1! INCLUDE FILES: 
3 08 2% 
:; 6 9304 1 
; «6468 505 1 REQUIRE "EDTSRC:EDTREQ’; 
:  $ bee) | 
: 4 D648 i MACROS: 
: gore | _ 
; D646 | EQUATED SYMBOLS: 
; 50 1 | OWN STORAGE: 
; 0651 1! 
3 O26 1! NONE 
3 653 1! 
- gee i 
: 656 1! In the routine 


EXTERNAL REFERENCES: 
| 
| 
| 


ee : 


EXTERNAL ROUTINE 
EDTSSTST _BADK, 
EDTSSDEFR, 
EDTSSFMT_MSG 


13 
EDT FK EDTSLDEFK = DEFINE KEY command 18-52 -1984 00:47:15 VAX-11 Bliss-32 V4.0-74 Page 3. 
SR bbe EDTSSDEFK CMD - DEFINE KEY command 12-808- 132 90:35:47 DLSKSVMEMASTERSCEDT SRCTLDEFK-BLI:1 2 (3) 
: i e38 } ZSBTTL "EDTSSDEFK_CMD = DEFINE KEY command’ 
; 9 6 5 1 GLOBAL ROUTINE EDTSSDEFK_CMD ! DEFINE KEY Line-mode command 
: r+ re¢4 ! : NOVALUE = 
; 36 662 1 144 
: a7 Pe7 ! FUNCTIONAL DESCRIPTION: | 
: 95 665 1! Command processing for DEFINE KEY. Simply call the define key routine for change mode, 
: 38 bees ! } and display an error message if it fails. | 
; 38 0668 i FORMAL PARAMETERS: | 
; 90 9670 | NONE 
: 108 O62 } | IMPLICIT INPUTS: | 
: 104 0674 1! EDT$$G_INP_SRC 
; 05 0675 1! EDT$$G_RCOV_MOD 
; 06 0676 EDTSSA_EXE_CURCMD 
; 08 0678 | | IMPLICIT OUTPUTS: 
: 110 0680 1! NONE 
3 41 0681 1! 
3 \¢ bes : ROUTINE VALUE: 
> 114 0684 1 | NONE | 
3 115 0685 1! 
; 18 bene : SIDE EFFECTS: | 
: 118 0688 1! If the attempt to define the key fails, may never 
: 4 +994 : return to the caller. 
: 121 0691 1 i-- | 
; $$ 0692 1 
: $i 069 BEGIN 
: 125 
: 6 
3 7 
3 8 
; 129 | 
a 
: 138 


ee ee ee a a a a 2 wd wd ow = = 


0699 EDTS$SYS-EXI : NOVALUE; 

7 EXTERNAL 

708 EDT$$G_INP_SRC 

? EDT$$G_RCOV_MOD, : 

. : EDTSSA_EXE_CURCMD : REF NODE_BLOCK; ! Pointer to the current command. | 

? LOCAL | 
; STATUS; | 
39 709 MESSAGES ((KEYNOTDEF, EDITORABO)); 
41 a1] IF EDTSSTST_BADK (.EDTS$S$A_EXE_CURCMD CKEY_VAL]) | 
48 18 EDTSSFMT_MSG (EDT$_KEYNOTDEF) 


H 13 
EDTSLDEFK EDTSLDEFK = DFINE KEY command 16-Sep-1984 00:47:15  VAK-11 Bliss-32 V4.0-74 p 4 
a Pee iit EDTSSDEFK CMD = DEFINE KEY command 18-868-1 382 90:30:32 NTEKSUMGHASTERSCEDT SRCSLDEFK.BLI:1 ~~ (3) | 
: ite we ELSE cin | 
; 146 ig STATUS = EDTSSDEFK (.EDTSSA EXE CURCMD CKEY_VALJ, .EDTS$A_EXE_CURCMD CAS_STRI, 
; 147 A .EDTS$A_EXE_CURCMD CAS_CENJ); 
: 149 8 4 IF ( MOT STATUS) | 
; 150 720 THEN 
: 151 721 4 BEGIN | 
; 4 f g 4 EDTSSFMT_MSG (.STATUS); 
3 is 4 ¢ 2 If we run out of memory when defining keys in the startup file, abort the editor. 
: 156 oF o. 
3 137 7 ? 4 IF (.EDT$S$G_INP_SRC EQL INP_COMMAND) THEN EDTS$SYS_EXI (EDT$_EDITORABO); 
: 139 729 END; 
: 18? a3 END 
; 16¢ 07 2 , 
3; 07 1 END; ! of routine EDTSSDEFK_CMD 
.TITLE EDTSLDEFK EDTSLDEFK - DEFINE KEY command 
“IDENT \V04-000\ 
.EXTRN EDTSSTST_BADK, EDTSSDEFK 
“EXTRN EDTSSFMT-MSG, EDTS$SYS_EXI 
-EXTRN EDT$$G_INP_SRC, EDTS$G-RCOV_MOD 
EXTRN EDT$S$A~EXE~CURCMD 
EXTRN EDTS_KEYNOTDEF, EDT$_EDITORABO 
.PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
000 00000 .ENTRY EDTSSDEFK_CMD, Save R2,R3 : 0659 
53 900000006 00 9E 00002 MOVAB EDTS$$A_EXE CURCMD, R3 ; 
52 000000006 09 9E 6009 MOVAB EDT ’ ; 
50 63 D0 9019 MOVL EDTS$A_ERE_CURCMD, RO : 0711 
10 AO DD 0001 PUSHL  16(R F 
000000006 00 gi FB 0016 CALLS #1, EDTS$$TST_BADK ; 
OA 0 €9 0001D LBC =—«aRO ; 
000000006 8F DD 00020 PUSHL  #EDTS KE YNOTDEE + 0713 
62 01 re S 8 CALLS #1, EBTSSFMT_MSG : 
0 63 00 0 A 1$: MOVL DTS$A_EXE_CURCMD, RO : O77 
E 08 Ad 7D D MOVG (RO), =(SP) : 0716 
10 AO dD 0 1 PUSHL $(RO ; 
000000006 00 FB CALLS #3, EDTSSDEFK ; 
18 E8 000 LBS STATUS, 2$ : 0719 
DD 000 PUSHL STATUS : 072 
62 1 FB 4 CALLS #1, EDTSSFMT_MSG ; 
000000006 00 } 4 CMPL gpts G_INP_SRC, #2 : 0727 
D 12 4A BNEQ $ 3 
000000006 8F DD 0004 PUSHL #EDT$_EDITORABO ; 
000000006 00 1 FB 2 ‘he CALLS #1, EDTS$SYS_EXI : 


; Routine Size: 90 bytes, Routine Base: _EDTSCODE + 0000 
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; Lenenes/CPU-Rin: 13098 
; pages 


> Lines/CPU Min: 
; crt hag Complete 


EDTSLDEFK EDTSLDEFK = DEFINE ommand 4 VAX-11 Bliss-32 V4.0-74 Page 6 

Pe ti EDTSSDEFK CMD = DEFINE KEY command 1b-Se0- 71382 99°35 23: ; DISKSVMSMASTER: CEDT.SRCILDEFK.BLI;1 (4) 

; 167 7 1 END ! of module EDTSLDEFK 

; 168 Oe? 1 rs 

; 16 738 0 ELUDOM 
| 

3 PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 90 NOVEC,NOWRT, RD, EXE, SHRP, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

Bo ern ee es ee Syabols oocooe-- Pages Processing 

5 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 51 13 40 00:00.2 

> _~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 

: COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACEBACK/LIS=LIS$:LDEFK/OBJ=OBJ$:LDEFK MSRC$:LDEFK.BLI/UPDATE=(ENH$:LDEFK) 

; Size: 90 code + 0 data bytes 

; Run Time: 19-2 9 

; Flepsed Time: 09: 1 
| 
} 
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